home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / FTP.ELC < prev    next >
Text File  |  1993-03-28  |  9KB  |  46 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:35:11 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/ftp.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴┬├#ê└─┬├#ê└┼┬├#ç" [put ftp-temp-file-name permanent-local t ftp-file ftp-host] 4)
  14. (defvar ftp-password-alist nil "\
  15. Security sucks")
  16. (byte-code "└┴Mê┬├Mç" [read-ftp-user-password #[(host user new) "└\n¼¢ <½ù─ \"Aë½Ä½ç    @ÿ½â    ¬▐¼á <½ê─ \"A@«é╟ ╚╔╩    #!ë╦ܽ⠠  ╚╔╠# <¼â╦¬Æ─ \"AA«è ╬╧ì)«ü╦\"B╨╦!ê <½î    A╦ÿ¼å    B B    )ç" [nil tem new ftp-password-alist assoc host user user-login-name read-string format "User-name for %s (default \"%s\"): " "" "Password for %s@%s: " l foo (byte-code "½ÿ@A@    ÿ½è┬├@AA\"ê¬kAë¼h─ç" [l user throw foo nil] 4) message] 7] ftp-read-file-name #[(prompt) "└┬├    \"¼ç─    \"¬s    ╞ö╞òO    ╟ö╟òO)Dç" ["" s string-match "\\`[     ]*\\([^     :]+\\)[     ]*:\\(.+\\)\\'" read-string prompt 1 2] 4]] 2)
  17. (fset 'ftp-find-file #[(host file &optional user password) "└    \n├ %ç" [ftp-find-file-or-directory host file t user password] 6 "\
  18. FTP to HOST to get FILE, logging in as USER with password PASSWORD.
  19. Interactively, HOST and FILE are specified by reading a string with
  20.  a colon character separating the host from the filename.
  21. USER and PASSWORD are defaulted from the values used when
  22.  last ftping from HOST (unless password-remembering is disabled).
  23.  Supply a password of the symbol `t' to override this default
  24.  (interactively, this is done by giving a prefix arg)" (byte-code "└┴┬!├ ??D\"ç" [append ftp-read-file-name "FTP get host:file: " nil current-prefix-arg] 4)])
  25. (fset 'ftp-list-directory #[(host file &optional user password) "└    \n├ %ç" [ftp-find-file-or-directory host file nil user password] 6 "\
  26. FTP to HOST to list DIRECTORY, logging in as USER with password PASSWORD.
  27. Interactively, HOST and FILE are specified by reading a string with
  28.  a colon character separating the host from the filename.
  29. USER and PASSWORD are defaulted from the values used when
  30.  last ftping from HOST (unless password-remembering is disabled).
  31.  Supply a password of the symbol `t' to override this default
  32.  (interactively, this is done by giving a prefix arg)" (byte-code "└┴┬!├ ??D\"ç" [append ftp-read-file-name "FTP get host:directory: " nil current-prefix-arg] 4)])
  33. (fset 'ftp-find-file-or-directory #[(host file filep &optional user password) "½ê    ½à    ┬=½Ä├     ┬=#ëA@┼╞╟½â╔¬ü╩  $!ë qê═ë═╤Ä╥  \"╙     $ë½å╘╒!ê¬ä╓╫!ê*╘╪½â┘¬ü┌  $ê█╞▄½â▌¬ü▐ #▀α$½£ßyê═\"e`|ê)╘π  #êΣσ\"ê¬ÿµ !ê═\"τΦ!ê)Θ!ê╓Ω  #+ç" [user password t read-ftp-user-password host get-buffer-create format "*ftp%s %s:%s*" filep "" "-directory" file buffer nil case-fold-search process win ((byte-code "¼ç    ½ä┬    !ê┬ç" [win process delete-process] 2)) ftp-setup-buffer ftp-login message "Logged in" error "Ftp login failed" "Opening %s %s:%s..." "file" "directory" ftp-command "%s \"%s\" -\nquit\n" "get" "dir" "\\(150\\|125\\).*\n" "200.*\n" 1 buffer-read-only "Retrieving %s:%s in background.  Bye!" set-process-sentinel ftp-asynchronous-input-sentinel switch-to-buffer insert-before-markers "<<<Ftp lost>>>" delete-process "Ftp %s:%s lost"] 7 "\
  34. FTP to HOST to get FILE.  Third arg is t for file, nil for directory.
  35. Log in as USER with PASSWORD.  If USER is nil or PASSWORD is nil or t,
  36. we prompt for the user name and password."])
  37. (fset 'ftp-write-file #[(host file &optional user password) "½ê    ½à    ┬=½Ä├     ┬=#ëA@┼╞╟ #!╔╩!  ═ed #êè qê╬╧!ê ╨ \"╤╤╒Ä╓     $ë½å╫╪!ê¬ä┘┌!ê*╫█ #ê▄╞▌ #▐▀$½ƒαyêp!╤\"e`|ê)╫π #êΣσ\"ꬢµ !êp'╤\"ΦΘ!ê)Ω!ê┘δ #-ç" [user password t read-ftp-user-password host get-buffer-create format "*ftp %s:%s*" file make-temp-name "/tmp/emacsftp" tmp buffer write-region make-local-variable ftp-temp-file-name ftp-setup-buffer nil case-fold-search process win ((byte-code "¼ä┴\n!ê┴ç" [win delete-process process] 2)) ftp-login message "Logged in" error "Ftp login lost" "Opening file %s:%s..." ftp-command "send \"%s\" \"%s\"\nquit\n" "150.*\n" "200.*\n" 1 foo1 buffer-read-only "Saving %s:%s in background.  Bye!" set-process-sentinel ftp-asynchronous-output-sentinel switch-to-buffer foo2 insert-before-markers "<<<Ftp lost>>>" delete-process "Ftp write %s:%s lost"] 7 "\
  38. FTP to HOST to write FILE, logging in as USER with password PASSWORD.
  39. Interactively, HOST and FILE are specified by reading a string with colon
  40. separating the host from the filename.
  41. USER and PASSWORD are defaulted from the values used when
  42.  last ftping from HOST (unless password-remembering is disabled).
  43.  Supply a password of the symbol `t' to override this default
  44.  (interactively, this is done by giving a prefix arg)" (byte-code "└┴┬!├ ??D\"ç" [append ftp-read-file-name "FTP write host:file: " nil current-prefix-arg] 4)])
  45. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mç" [ftp-setup-buffer #[(host file) "└ ê┴p!½ú┬ ê├─┼╞┴p!!╟p!#!½ì┴p!½î╚┴p!!ê¬s╔╩!ê╦ ═ ê╬╧!ê╬╤!êp╘ ╒╓p╓╫╪┘&ç" [fundamental-mode get-buffer-process discard-input y-or-n-p format "Kill process \"%s\" in %s? " process-name buffer-name kill-process error "Foo" nil buffer-read-only erase-buffer make-local-variable ftp-host host ftp-file file foo3 t start-process "ftp" "-i" "-n" "-g"] 7] ftp-login #[(process host user password) "└┴\n #ê─╞╟ \n$╔╩$½é╦ç╠═!!ê╬!ê<½ï╨╤ \"\"╥ç" [message "FTP logging in as %s@%s..." user host ftp-command process format "open %s\nuser %s %s\n" password "230.*\n" "\\(Connected to \\|220\\|331\\|Remote system type\\|Using.*mode\\|Remember to set\\).*\n" t switch-to-buffer process-buffer delete-process ftp-password-alist delq assoc nil] 7] ftp-command #[(process command win ignore) "└    \n\"ê├ º½╝┼!½êdbê╟ë¬o┼╚!½å╔òbê¬c┼\n!½à├yê¬X╦╠═╟#¼î`═╬╧Åê bê¬E═ë¬A )ç" [process-send-string process command 1 p looking-at win t "^ftp> \\|^\n" 0 ignore search-forward "\n" nil (accept-process-output process) ((error))] 5] ftp-asynchronous-input-sentinel #[(process msg) "└    \n├ë$ç" [ftp-sentinel process msg t] 5] ftp-synchronous-input-sentinel #[(process msg) "└    \n├─$ç" [ftp-sentinel process msg nil t] 5] ftp-asynchronous-output-sentinel #[(process msg) "└    \n├─$ç" [ftp-sentinel process msg t nil] 5] ftp-synchronous-output-sentinel #[(process msg) "└    \n├ë$ç" [ftp-sentinel process msg nil] 5] ftp-sentinel #[(process msg asynchronous input) "└┴\n!!¼à├\n─\"ç┼\n!╞=â└╟\n!╚Uâ└è┴\n!qê─    ½â╩¬ü╦ ─dbê╧╨!ê╤ !½ä╧╨!ê`╙╘    ½â╒¬ü╓$┘ ─┌#½ë█╚ö╚ò{P¬ü▄Pd|êè▌▐!qê─▀▒ê,    ¼ï─αßÅêΓp!ê¬úπ╙Σ#!%└%!Γ%!ê%µ%!êτ─!êΦ ê))¡ëΩδ\"ê∞φ!+ç┼\n!ε>¡╜è┴\n!qê╙∩└p!#─dbê▀ë▒ê)≡1!ê▌▐!qê─dbêcê)≥ ¡à≤δ\")ç" [buffer-name process-buffer process set-process-buffer nil process-status exit process-exit-status 0 input "[0-9]+ bytes received in [0-9]+\\.[0-9]+ seconds.*$" "[0-9]+ bytes sent in [0-9]+\\.[0-9]+ seconds.*$" r msg buffer-read-only search-backward "226 " looking-at p format "ftp %s %s:%s done" "read" "write" ftp-host ftp-file re-search-forward t ": " "" get-buffer-create "*ftp log*" 10 (byte-code "└┴!½ç    ½ä┬    !ê└ç" [boundp ftp-temp-file-name delete-file] 2) ((error)) kill-buffer generate-new-buffer "%s:%s (ftp)" kludge rename-buffer set-buffer-modified-p ftp-setup-write-file-hooks asynchronous message "%s" sleep-for 2 (exit signal) "Ftp died (buffer %s): %s" delete-process proc waiting-for-user-input-p error] 5] ftp-setup-write-file-hooks #[nil "┬└!ê├─\")┬┼!ê╞╟╟╔╩p!!P ╠ëç" [write-file-hooks hooks make-local-variable append (ftp-write-file-hook) revert-buffer-function ftp-revert-buffer "/tmp/" default-directory make-temp-name buffer-name buffer-file-name nil buffer-read-only] 4] ftp-write-file-hook #[nil "└    \n\"─ ┼\"ê╞╟    \n#ê╚ !╔=½ç╩╦╠Åê¬r═╩!ê╞╬    \n#ê)╧ç" [ftp-write-file ftp-host ftp-file process set-process-sentinel ftp-synchronous-output-sentinel message "FTP writing %s:%s..." process-status run nil (accept-process-output process) ((error)) set-buffer-modified-p "FTP writing %s:%s...done" t] 4] ftp-revert-buffer #[(&rest ignore) "└    \n\"─ ┼\"ê╞╟    \n#ê╚ !╔=½ç╩╦╠Åê¬r╚ !═=½ï╬ !╧U½ä╨╩!ê╞╤!)ç" [ftp-find-file ftp-host ftp-file process set-process-sentinel ftp-synchronous-input-sentinel message "FTP reverting %s:%s" process-status run nil (accept-process-output process) ((error)) exit process-exit-status 0 set-buffer-modified-p "Reverted"] 4]] 2)
  46.